home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / tools / amiga / gfx_card / pappatch.lha / PAP11patch.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-06-03  |  4.9 KB  |  189 lines
  1. /* Update Part And Particle v1.0 to v1.1 */
  2. /*                                       */
  3. /*          ©1994 Carmen Rizzolo         */
  4. /*                                       */
  5.  
  6. Options Results
  7. Address Command
  8. Quote = "'"
  9.  
  10. Say
  11. Say
  12.  
  13. If Exists('OpalPaint:Rexx/PAP1.oprx') = 0 Then Do
  14.     Say 'I cannot seem to find the Part And Particle v1 file!'
  15.     If Exists('Rexx:PAP1.oprx') = 0 Then Do
  16.         Say 'Nope.  Definently not there.  Exiting...'
  17.         Exit
  18.         End
  19.     End
  20.  
  21. If Exists('OpalPaint:Rexx/PAP1.oprx') = 1 Then Say 'PAP1.oprx found in OpalPaint:Rexx/'
  22. If Exists('Rexx:PAP1.oprx') = 1 & Exists('OpalPaint:Rexx/PAP1.oprx') = 0 Then Say 'Okay, there it is... In Rexx:'
  23.  
  24. If Exists('OpalPaint:Rexx/PAP1.oprx') = 1 Then PAPDir = 'OpalPaint:Rexx/'
  25. Else If Exists('Rexx:PAP1.oprx') = 1 Then PAPDir = 'Rexx:'
  26.  
  27. Say
  28. Say
  29. Say 'WARNING!  Your PAP1.oprx file MUST be the original, unmodified file'
  30. Say 'that came from your PAP installation.  Shall I continue? (y/n)'
  31. Pull YesNo
  32.  
  33. If UPPER(Left(YesNo,1)) ~= 'Y' Then Do
  34.     Say
  35.     Say 'Operation aborted.. Have a nice day.'
  36.     Exit
  37.     End
  38.  
  39. Say
  40. Say
  41. Say 'Stand By: Upgrading...'
  42.  
  43. 'Copy ' || PAPDir || 'PAP1.oprx Ram: Quiet'
  44.  
  45. Call Open('PAP1File','Ram:PAP1.oprx','r')
  46.  
  47. Do A = 1 to 348
  48.     AA = ReadLn('PAP1File')
  49.     End
  50.  
  51. If Right(AA,25) ~= '"Part And Particle v1.0"' || Quote Then Do
  52.     Say 'FATAL ERROR!  It appears that this is NOT Part And Particle'
  53.     Say 'version 1.0!  Either that or the file has been modified.'
  54.     Say 'Please re-install Part And Particle from the original disks'
  55.     Say 'before trying this script again.  Exiting...'
  56.     Exit
  57.     End
  58.  
  59. Call Open('PAP1File','Ram:PAP1.oprx','r')
  60. Call Open('PAP11File','Ram:PAP11.oprx','w')
  61.  
  62. Call WriteLn('PAP11File','/*                        */')
  63. Call WriteLn('PAP11File','/* Part and Particle v1.1 */')
  64. Call WriteLn('PAP11File','/*                        */')
  65. Call WriteLn('PAP11File','/*  ©1994 Carmen Rizzolo  */')
  66. Call WriteLn('PAP11File','/*                        */')
  67. Call WriteLn('PAP11File','/*                        */')
  68.  
  69. Do A = 1 to 6
  70.     AA = ReadLn('PAP1File')
  71.     End
  72.  
  73. Do A = 1 to 225
  74.     AA = ReadLn('PAP1File')
  75.     Call WriteLn('PAP11File',AA)
  76.     End
  77.  
  78. AA = ReadLn('PAP1File')
  79. NewLine = '                  If MainLoop > StartFrame Then Do'
  80. Call WriteLn('PAP11File',NewLine)
  81.  
  82. Do A = 1 to 20
  83.     AA = ReadLn('PAP1File')
  84.     Call WriteLn('PAP11File',AA)
  85.     End
  86.  
  87. NewLine = '                         If MainLoop > StartFrame Then Do'
  88. Call WriteLn('PAP11File',NewLine)
  89. NewLine = '                               If ModuleMode = 1 Then Call DoParticles()'
  90. Call WriteLn('PAP11File',NewLine)
  91. NewLine = '                               If ModuleMode = 4 Then Call DoParticles()'
  92. Call WriteLn('PAP11File',NewLine)
  93. NewLine = '                               If ModuleMode = 5 Then Call DoParticles()'
  94. Call WriteLn('PAP11File',NewLine)
  95. NewLine = '                               If ModuleMode = 6 Then Call DoParticles()'
  96. Call WriteLn('PAP11File',NewLine)
  97. NewLine = '                               If ModuleMode = 7 Then Call DoParticles()'
  98. Call WriteLn('PAP11File',NewLine)
  99. NewLine = '                               End'
  100. Call WriteLn('PAP11File',NewLine)
  101.  
  102. Do A = 1 to 5
  103.     AA = ReadLn('PAP1File')
  104.     End
  105.  
  106. Do A = 1 to 6
  107.     AA = ReadLn('PAP1File')
  108.     Call WriteLn('PAP11File',AA)
  109.     End
  110.  
  111. NewLine = '                  If MainLoop > StartFrame Then Call PrepParticlesForDraw()'
  112. Call WriteLn('PAP11File',NewLine)
  113. Call ReadLn('PAP1File')
  114.  
  115. Do A = 1 to 83
  116.     AA = ReadLn('PAP1File')
  117.     Call WriteLn('PAP11File',AA)
  118.     End
  119.  
  120. NewLine = '      AddHeading ' || Quote || 'CenterX 20 "Part And Particle v1.1"' || Quote
  121. Call WriteLn('PAP11File',NewLine)
  122. NewLine = '      AddHeading ' || Quote || 'CenterX 30 "©1994 Carmen Rizzolo"' || Quote
  123. Call WriteLn('PAP11File',NewLine)
  124. NewLine = '      AddHeading ' || Quote || 'CenterX 45 "an Arexx script for OpalPaint v2.3 or higher"' || Quote
  125. Call WriteLn('PAP11File',NewLine)
  126. Call ReadLn('PAP1File')
  127. Call ReadLn('PAP1File')
  128. Call ReadLn('PAP1File')
  129.  
  130. Do A = 1 to 1969
  131.     AA = ReadLn('PAP1File')
  132.     Call WriteLn('PAP11File',AA)
  133.     End
  134.  
  135. NewLine = '      Do AA = StartFrame to MainLoop'
  136. Call WriteLn('PAP11File',NewLine)
  137. Call ReadLn('PAP1File')
  138.  
  139. Do A = 1 to 17
  140.     AA = ReadLn('PAP1File')
  141.     Call WriteLn('PAP11File',AA)
  142.     End
  143.  
  144. NewLine = '            Do AA = StartFrame to FirstOne'
  145. Call WriteLn('PAP11File',NewLine)
  146. Call ReadLn('PAP1File')
  147.  
  148. Do A = 1 to 46
  149.     AA = ReadLn('PAP1File')
  150.     Call WriteLn('PAP11File',AA)
  151.     End
  152.  
  153. NewLine = '      Do AA = StartFrame to (MainLoop - 1)'
  154. Call WriteLn('PAP11File',NewLine)
  155. Call ReadLn('PAP1File')
  156.  
  157. Do A = 1 to 17
  158.     AA = ReadLn('PAP1File')
  159.     Call WriteLn('PAP11File',AA)
  160.     End
  161.  
  162. NewLine = '            Do AA = StartFrame to FirstOne'
  163. Call WriteLn('PAP11File',NewLine)
  164. Call ReadLn('PAP1File')
  165.  
  166. Do A = 1 to 1769
  167.     AA = ReadLn('PAP1File')
  168.     Call WriteLn('PAP11File',AA)
  169.     End
  170.  
  171. Call Close('PAP1File')
  172. Call Close('PAP11File')
  173.  
  174. Say '...done'
  175.  
  176. If Exists('OpalPaint:Rexx/') = 1 Then 'Copy Ram:PAP11.oprx ' || PAPDir || ' QUIET'
  177.  
  178. Delete 'Ram:PAP1.oprx Quiet'
  179. Delete 'Ram:PAP11.oprx Quiet'
  180.  
  181. Say
  182. Say 'Operation complete!'
  183. Say 'PAP11.oprx (Part And Particle v1.1) is now in your'
  184. Say PAPDir || ' directory.'
  185. Say
  186. Say 'Exiting...'
  187.  
  188. Exit
  189.